5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
25 POKE53272,31
30 AD=49152
35 SYSAD:SYSAD+12
38 BX$="[150][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180][157][180]"
40 PRINT"[147]":SYSAD+9,5
42 PRINTTAB(4)"[158][215]ANT TO SEE [193]STERIOD [204]IST? [159][217]/[206]":POKE198,.
43 GETA$:IFA$<>"Y"ANDA$<>"N"THEN43
44 IFA$="Y"THENGOSUB500
45 PRINT"[147][150][219][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][220]":SYSAD+9,1
47 PRINTBX$""TAB(38)BX$
49 PRINT"[150][255][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][168]"
55 RD=180/(null)
57 PRINT"[158]"TAB(1)"    [193][211][212][197][210][201][207][196]  [196][201][193][205][197][212][197][210]  [195][193][204][195][213][204][193][212][207][210]   "
60 PRINT:PRINTTAB(2)"[159][193]PPARENT VISUAL MAGNITUDE- ";:L9%=4:GOSUB355:V=Q9
65 PRINTTAB(2)"[159][196]ISTANCE FROM [211]UN [156](AU):";:L9%=5:GOSUB355:R0=Q9
70 PRINTTAB(2)"[159][196]ISTANCE FROM [197]ARTH [156](AU):";:L9%=5:GOSUB355:D0=Q9
75 PRINTTAB(2)"[159][197]ARTH-[211]UN DISTANCE [156](AU):";:L9%=5:GOSUB355:R=Q9
80 PRINTTAB(2)"[159][193]STERIOD TYPE -"
85 PRINTTAB(8)"[156][195] - [211] - [205] OR [196]?":POKE198,.
90 GETA$:IFA$<>"C"ANDA$<>"S"ANDA$<>"M"ANDA$<>"D"THEN90
95 IFA$="C"THENP=.037
100 IFA$="S"THENP=.10
105 IFA$="M"THENP=.18
106 IFA$="D"THENP=.02
115 PRINT
120 REM NOW ENTERING THE PHOTOMETRIC SLOPE
125 REM PARAMETER (G), OR IF UNKNOWN
130 REM ENTER 0.15. VALUE OF G
132 G=.15
135 PRINT:PRINTTAB(1)"[150][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]":SYSAD+9,3
140 CI=(R0^2+D0^2-R^2)/(2*R0*D0)
145 F=ATN(SQR(1-CI*CI)/CI):IFCI<0THENF=F+8
155 REM F = SOLAR PHASE ANGLE IN RADIANS
160 PRINT:PRINTTAB(1)"[153][211]OLAR PHASE ANGLE/PHI, [219]:";F*RD
165 :
170 REM NOW CALCULATE THE ASTERIOD'S ABSOLUTE MAGNITUDE BY THE METHOD
175 REM IN THE 1993 EPHEMERIDES OF MINOR PLANETS
180 P1=EXP(-3.33*(TAN(F/2))^.63)
185 P2=EXP(-1.87*(TAN(F/2))^1.22)
190 H=V-5*LOG(D0*R0)/LOG(10)+2.5*LOG((1-G)*P1+G*P2)/LOG(10)
195 PRINT:PRINTTAB(2)"[153][193]BSOLUTE MAG (H):";H
200 REM FINALLY DEDUCE THE DIAMETER OF THE ASTERIOD
205 REM FROM ITS ABSOLUTE MAGNITUDE AND ALBEDO
210 LD=3.12-.2*H-.5*LOG(P)/LOG(10)
215 D=10^LD
220 PRINT:PRINTTAB(2)"[153][196]IAMETER (MI):";D*.6
225 GOSUB3000
230 GOTO40
355 Q9$="":POKE198,.
360 GETA$
365 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN360
370 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
375 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO397
380 IFLEN(Q9$)>=L9%THENSYSAD+9,20:GOTO360
385 IF(A$>="0"ANDA$<="9")ORA$="."THEN390
387 GOTO360
390 Q9$=Q9$+A$
395 PRINT""A$;:SYSAD+9,2:GOTO360
397 PRINT" [157][157] [157]";:GOTO360
500 PRINT"[147][158][193][211][212][197][210][201][207][196][211]  [211][213][206] [193][213]S   [153][207][210][194][201][212]":SYSAD+9,21
510 PRINT"[158][206][193][205][197][211]      [205][197][193][206] [196][201][211][212] [153][217][197][193][210][211]   [150][212][217][208][197]"
515 PRINT"[158][195]ERES      2.767     [153]4.61      [150][195]"
520 PRINT"[158][200]YGIEA     3.144     [153]5.59      [150][211]"
525 PRINT"[158][197]UNOMIA  [160][160]2.644     [153]4.30      [150][205]"
530 PRINT"[158][208]SYCHE     2.922     [153]5.00      [150][211]"
535 PRINT"[158][200]ERCULINA  2.772     [153]4.61      [150][205]"
540 PRINT"[158][200]ERMIONE   3.451     [153]6.37      [150][195]"
545 PRINT"[158][198]REIA      3.390     [153]6.30      [150][196]"
550 PRINT"[158][201]RIS       2.386     [153]3.68      [150][205]"
555 PRINT"[158][206]EMESIS    2.750     [153]4.56      [150][196]"
560 PRINT"[158][200]EBE       2.425     [153]3.78      [150][205]"
565 PRINT"[158][193]LETHEIA   3.139     [153]5.60      [150][195]"
570 PRINT"[158][203]ALLIOPE   2.910     [153]4.97      [150][211]"
575 PRINT"[158][215]INCHESTER 2.998     [153]5.18      [150][195]"
580 PRINT"[158][208]ERTORIA   3.406     [153]6.29   [160]  [150][195]"
585 PRINT"[158][200]ILDA      3.969     [153]7.92      [150][211]"
590 PRINT"[158][194]ERTHA     3.184     [153]5.68      [150][195]"
600 PRINT"[159][212]HESE [193]STERIODS ORBIT IN THE [205]AIN [194]ELT."
605 PRINT"[212]HEIR MAGNITUDES VARY FROM ABOUT 12-18,"
610 PRINT"DEPENDING ON THEIR TYPE AND DISTANCE."
615 PRINTTAB(8)" [193]NY [203]EY TO [195]ONTINUE ":POKE198,.
620 GETA$:IFA$=""THEN620
625 RETURN
3000 POKE214,19:PRINT:PRINTTAB(8)"[159](1[159]) [212]RY ANOTHER ONE
3010 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147][144]LOAD"CHR$(34)"B.UNIVERSE IV"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="ASTERIOD SIZE":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END